priority encoder. 



LIBRARY ieee ; 

USE ieee.std_Logic_1 164. all ; 


ENTITY priority IS 

PORT ( w : IN STD_LO GI C_VE CTOR (3 DOWNTO 0) ; 

y : OUT STD_LOGIC_VECTOR(l DOWNTO 0) ; 
z : OUT STD_LOGIC ) ; 

END priority ; 


ARCHITECTURE Behavior OF priority IS 


BEGIN 

WITH w SELECT 

y ”00” WHEN ”0001”, 
”01” WHEN ”0010” , 
”01” WHEN ”0011”, 
”10” WHEN ”0100”, 
”10” WHEN ”0101”, 
”10” WHEN ”0110”, 
”10” WHEN ”0111”, 
”11” WHEN OTHERS 
WITH w SELECT 

z <:= 5 0’ WHEN ”0000”, 

'1' WHEN OTHERS ; 
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END Behavior ; 




LIBRARY ieee ; 

USE ieee.stdJogic_HG4.all ; 


ENTITY priority IS 

PORT ( w : IN STD .LOGIC .VECTOR (3 DOWNTO 0) ; 
y : OUT STD_LOGIC_VECTOR(l DOWNTO 0) ; 
z : OUT STD .LOGIC ) ; 


END priority ; 

ARCHITECTURE Behavior OF priority IS 
BEGIN 

y <= ’Tl" WHEN w(3) = T ELSE 
’TO” WHEN w(2) = ’ 1 ’ ELSE 
”01” WHENw(l) = T ELSE 
” 00 ” ; 


Conditional 

Signal 

Assignment 


z <= ’0’ WHEN w = ”0000” ELSE T ; 


END Behavior ; 




Hierarchical code for a 16-to-l 

multiplexer 
using 4-to-l mux 



LIBRARY ieee ; 

USE ieee.std_logic_l 1 64. all ; 

LIBRARY work ; 

USE work,mux4tol_package.a]l ; 

ENTITY mux 1 6to 1 IS 

PORT ( w : IN STD_LOGIC_VECTOR(0 TO 15) : 

s : IN STD -LOGIC -VECTOR (3 DOWN TO 0) 

f : OUT STD _L O GIC ) ; 

END muxlGtol ; 

ARCHITECTURE Structure OF muxlGtol IS 

SIGNAL m : STD_LOGIC_VECTOR(0 TO 3) ; 

BEGIN 

MajxI: mux4tol PORT MAP 

( w(0), w(l), w(2), w(3), s( 1 DOWNTO 0), m(0) ) ; 

Mux2: mux4tol PORT MAP 

( w(4), w(5) t w(6), w(7), s( 1 DOWNTO 0), m(l) ) ; 

Mux3: mux4tol PORT MAP 

( w(8), w(9), w(10) t w(Il) t s( 1 DOWNTO 0), m(2) ) ; 

Mux4: mux4to 1 PORT MAP 

(w(12), w(13), w(14), w(15), s( 1 DOWNTO 0), m(3) ) 

Mux5: mux4tol PORT MAP 

( m (0) , m(l) , m (2) , m(3), s(3 DOWNTO 2), f ) ; 

END Structure ; 


LIBRARY ieee ; 

USE ieee.std_logic_I164.aII ; 

USE work. mux4to I .package. all ; 

ENTITY muxl6tol IS 

PORT ( w : IN STD_LOGIC_VECTQR(0 TO 15) ; 

s : IN STD _L0GIC_VECT0R(3 DOWNTO 0) ; 
f : OUT STD_LOGIC) ; 

ENDmuxlGtol ; 

ARCHITECTURE Structure OF muxlGtol IS 

SIGNAL m : STD_LOGIC_VECTOR(0 TO 3) ; 

BEGIN 

Gl: FOR i IN 0 TO 3 GENERATE 
Muxes: mux4tol PORT MAP ( 

w(4*i), w(4*i+l), w(4*i+2), w(4 + i+3), s(l DOWNTO 0), m(i) ) ; 
END GENERATE ; 

Mux5: mux 4 to 1 PORT MAP ( m(0) t m(l) P m(2) t m(3), s(3 DOWNTO 2 ), f ) 
END Structure ; 


Hierarchical code for a 4-to-16 

binary decoder. 








LIBRARY ieee ; 

USE ieee. std_logic_l 1 G4. all ; 

ENTITY shifter IS 

PORT ( w : IN STD_LOGIC_VECTOR(3 DOWNTO 

Shift : IN STDJLOGIC ; 

y : OUT STD_LOGIC_VECTOR(3 DOWNTO 

k : OUT STD-LOGIC ) ; 

END shifter ; 

ARCHITECTURE Behavior OF shifter IS 
BEGIN 

PROCESS (Shift, w) 

BEGIN 

IF Shift = L THEN 
y(3) <= ’O’ ; 

y (2 DOWNTO 0) <= w(3 DOWNTO 1) ; 
k <= w(0 ) ; 

ELSE 

y <= w ; 
k <= O' ; 

END IF ; 

END PROCESS ; 

END Behavior ^ 


LIBRARY ieee ; 

USE ieee.std— logic— I 1 64 .all ; 
USE ieee.ntmieric^std.all ; 


ENTITY shifter IS 

IN UNSIGNED (3 DOWNTO 0) 
IN STD —LOGIC ; 

OUT UNSIGNED (3 DOWNTO 0) 
OUT STD -LOGIC ) ; 

END shifter ; 


r UK 1 t W 

Shift 

y 

k 


ARCHITECTURE Behavior OF shifter IS 
BEGIN 

PROCESS (Shift, w) 

BEGIN 

IF Shift = ” I ” THEN 
y w SRL 1 ; 

k < = w (O) ; 

ELSE 

y < = w ; 

k < = "O" ; 

END IF ; 

END PROCESS ; 

END Behavior ; 
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LIBRARY ieee ; 

USE ieee.std_logic_l 1 64. all ; 
USE ie ee . n u me ric _s td . all ; 


ENTITY barrel IS 

PORT ( w : IN UNSIGNED (3 DOWNTO 0) 
s : IN UNSIGNED (1 DOWNTO 0) 
y : OUT UNSIGNED (3 DOWNTO 0) 

END barrel ; 

ARCHITECTURE Behavior OF barrel IS 
BEGIN 

PROCESS (s, w) 

BEGIN 

CASE s IS 

WHEN ”00” 

y -< = w ; 

WHEN ”01” 

y w ROR 1 ; 

WHEN "10” =>■ 

y w ROR 2 ; 

WHEN OTHERS =>■ 
y -<= w ROR 3 ; 

END CASE ; 

END PROCESS ; 

END Behavior ; 
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